home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / SoftwareUpdate / AWeb21 Update / AWebII_2.1_upgrade.961112.lha / Install_Animation < prev    next >
AmigaDOS Script File  |  1996-10-31  |  615b  |  27 lines
  1. .key animation
  2. .bra {
  3. .ket }
  4.  
  5. if "{animation}" eq ""
  6.   set animation "Storage/Animations/"
  7.   set animation `requestfile Storage/Animations title "Select AWeb animation" noicons`
  8.   if "$animation" eq "Storage/Animations/"
  9.     quit
  10.   endif
  11. else
  12.   set animation "{animation}"
  13. endif
  14.  
  15. copy "$animation" images/def_transferanim
  16. if not warn
  17.   copy "$animation.info" images/def_transferanim.info
  18.   if not warn
  19.     requestchoice >NIL: "AWeb animations" "Animation $animation installed." "OK"
  20.     quit
  21.   endif
  22. endif
  23.  
  24. requestchoice >NIL: "AWeb animations" "Couldn't install new animation.*NYou have to quit AWeb first" "OK"
  25.  
  26.  
  27.